bad-match (c) 2020 by michael hirschberg
a contribution to gunnar karnold's basic ten-liner-contest-2020

--------------------------------------------------------------------------------

tokenized source code:

0 w=0:l=0:v=53248:w$="{lgrn}gewonnen{blu}":l$="{red}verloren{blu}":g$="{clr}{red}bad match{blu}{home}{down}{down}":pokev+32,14
1 printg$;"{home}";spc(28);w$;w;"{home}{down}"spc(28)l$;l:restore:pokev+21,0:pokev+33,14:fora=1to11:readc,d,e,f
2 forb=ctoc+dstepe:pokeb,f:nextb,a:pokev+37,7:pokev+38,2:pokev+19,0:pokev+23,255:pokev+28,255:i=0
3 input"{down}{down}streichhoelzer (2-8)";s:z=int(rnd(1)*s)+1:ifs<2ors>8thengoto3:data2040,7,1,13
4 fora=0tos-1:i=i or(2^a):pokev+(a*2),180+(a*10)-(s*10)/2:nexta:data832,127,1,0
5 pokev+21,i:print"{down}{down}welches holz (1-{left}";(s*-1);"{left})";:inputh:ifh<1orh>sthengoto5:data832,0,1
6 poke2039+z,14:forb=1to60:p=v-1+(h*2):pokep,peek(p)-1:nextb:data60,835,8,3,255,841,51,3
7 m$=w$+"!":w=w+1:ifz=hthenl=l+1:w=w-1:m$=l$+"!":data85,896,0,1,60,899,8,3,255,905,30
8 print"{down}";m$:input"{down}{down}(b)eenden";a$:ifa$<>"b"thengoto1:data3,85,935,0,1,81,938,0,1,16,53249
9 poke53269,0:print"{clr}c64 bad match (c) 2020 by hirschi ;-)":data14,2,230,53287,7,1,13


--------------------------------------------------------------------------------

source code:

line 0:
-------
w=0
l=0
v=53248
w$="{lgrn}gewonnen{blu}"
l$="{red}verloren{blu}"
g$="{clr}{red}bad match{blu}{home}{down}{down}"
pokev+32,14

line 1:
-------
printg$;"{home}";spc(28);w$;w;"{home}{down}"spc(28)l$;l
restore
pokev+21,0
pokev+33,14
fora=1to11
readc,d,e,f

line 2:
-------
forb=ctoc+dstepe
pokeb,f
nextb,a
pokev+37,7
pokev+38,2
pokev+19,0
pokev+23,255
pokev+28,255
i=0


line 3:
-------
input"{down}{down}streichhoelzer (2-8)";s
z=int(rnd(1)*s)+1
ifs<2ors>8thengoto3
data2040,7,1,13

line 4:
-------
fora=0tos-1
i=i or(2^a)
pokev+(a*2),180+(a*10)-(s*10)/2
nexta
data832,127,1,0

line 5:
-------
pokev+21,i
print"{down}{down}welches holz (1-{left}";(s*-1);"{left})";
inputh:ifh<1orh>sthengoto5
data832,0,1

line 6:
-------
poke2039+z,14
forb=1to60
p=v-1+(h*2)
pokep,peek(p)-1
nextb
data60,835,8,3,255,841,51,3

line 7:
-------
m$=w$+"!"
w=w+1
ifz=hthenl=l+1
w=w-1
m$=l$+"!"
data85,896,0,1,60,899,8,3,255,905,30

line 8:
-------
print"{down}";m$
input"{down}{down}(b)eenden";a$
ifa$<>"b"thengoto1
data3,85,935,0,1,81,938,0,1,16,53249

line 9:
-------
poke53269,0
print"{clr}c64 bad match (c) 2020 by hirschi ;-)"
data14,2,230,53287,7,1,13

--------------------------------------------------------------------------------
cleared source code; all data lines at the end of file:


w=0
l=0
v=53248
w$="{lgrn}gewonnen{blu}"
l$="{red}verloren{blu}"
g$="{clr}{red}bad match{blu}{home}{down}{down}"
pokev+32,14
printg$;"{home}";spc(28);w$;w;"{home}{down}"spc(28)l$;l
restore
pokev+21,0
pokev+33,14
fora=1to11
readc,d,e,f
forb=ctoc+dstepe
pokeb,f
nextb,a
pokev+37,7
pokev+38,2
pokev+19,0
pokev+23,255
pokev+28,255
i=0
input"{down}{down}streichhoelzer (2-8)";s
z=int(rnd(1)*s)+1
ifs<2ors>8thengoto3

fora=0tos-1
i=i or(2^a)
pokev+(a*2),180+(a*10)-(s*10)/2
nexta

pokev+21,i
print"{down}{down}welches holz (1-{left}";(s*-1);"{left})";
inputh:ifh<1orh>sthengoto5

poke2039+z,14
forb=1to60
p=v-1+(h*2)
pokep,peek(p)-1
nextb

m$=w$+"!"
w=w+1
ifz=hthenl=l+1
w=w-1
m$=l$+"!"

print"{down}";m$
input"{down}{down}(b)eenden";a$
ifa$<>"b"thengoto1

poke53269,0
print"{clr}c64 bad match (c) 2020 by hirschi ;-)"

data lines:
-----------

data 2040,7,1,13
data 832,127,1,0
data 832,0,1,60
data 835,8,3,255
data 841,51,3,85
data 896,0,1,60
data 899,8,3,255
data 905,30,3,85
data 935,0,1,81
data 938,0,1,16
data 53249,14,2,230
data 53287,7,1,13